10 GOSUB10000:         GOSUB 500
100 PRINTCHR$(142)"[147][158] STATISTICAL ANALYZER      BY IAN ADAM"
110 PRINT"1 -- LOAD DATA FROM DISK"
120 PRINT"2 -- CREATE NEW DATA FILE"
130 PRINT"3 -- SAVE DATA TO DISK"
140 PRINT"4 -- ADD TO DATA"
150 PRINT"5 -- EDIT CURRENT DATA"
160 PRINT"6 -- CHANGE FILE NAME"
170 PRINT"7 -- LIST DATA"
180 PRINT"8 -- ANALYZE DATA"
190 PRINT"9 -- VIEW NORMAL DISTRIBUTION (EXAMPLE)"
200 PRINT"10 - VIEW POISON DISTRIBUTION (EXAMPLE)"
210 PRINT"   (RETURN) - RETURN TO LOADSTAR"
230 IF NP THEN PRINT"DATA FUNCTION: "DF$:PRINT"POINTS:"NP
240 PRINT"UP TO"MP"POINTS AVAILABLE":PRINT
250 PRINT"[145]SELECTION :                            [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
251 SYS32768,2,4,A$:A=VAL(A$)
260 IFA<3ANDNPTHENPRINT"LOSS OF DATA: OK? :";:SYS32768,1,2,A$:IFA$<"Y"THEN100
270 :
400 ON A+1 GOSUB 800,1000,2000,1200,2500,3000,1700,4000,5000,8000,8000
410 GOTO 100
420 :
500 PRINT"[147]":MP=500:DIM D(MP):REM MAX # POINTS
510 DIM CM(40),CL(40),AC(40),PL(40):POKE53281,.
520 DEF FNL(A)=10^INT(LOG(A)/LOG(10)-1)
530 DEF FNR(X)=L*INT(X/L+.95):REM ROUNDING
540 IF PEEK(48)>9 THEN CR=679:FOR I=CR TO 697:READ S:POKE I,S:NEXT:RETURN
550 DATA 32,241,183,32,241,183,138,72,32,241,183,138,168,104,170,24,76,240,255
560 :
620 :
800 PRINT"[145] DO YOU WISH TO QUIT TO LOADSTAR? (Y/N)"
810 GETA$:IFA$=""THEN810
811 IFA$="Y"ORA$="[217]"THEN900
820 IFA$="N"ORA$="[206]"THEN100
821 GOTO 810
900 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
901 IFER<>63 THEN PRINT"[147]":END
905 LOAD"HELLO CONNECT",8,1
1000 PRINT"[147]LOAD DATA FROM DISK"
1010 CLR:GOSUB 500
1020 D$=",S,R":GOSUB 1500,OPEN
1030 IF A>19 THEN RUN
1040 :
1100 INPUT#1,NP
1110 FOR I=1 TO NP
1120 INPUT#1,D(I)
1130 NEXT:CLOSE 1
1140 GOSUB 1600:GOTO 100
1150 :
1200 D$=",S,W":PRINT"[147]SAVE DATA TO DISK"
1210 IF NP=0 THEN PRINT"NO DATA: PRESS ANY KEY";:SYS32768,1,128,A$:RETURN
1220 PRINT"PRESS RETURN FOR NAME: "DF$
1230 GOSUB 1500,OPEN
1240 IF A>19 THEN RETURN
1250 :
1300 PRINT#1,NP
1310 FOR I=1 TO NP
1320 PRINT#1,D(I)
1330 NEXT:CLOSE 1
1340 GOTO 1600
1350 :
1500 GOSUB 1700,NAME :REM OPEN FILE
1510 D$="0:"+DF$+D$
1520 CLOSE 2:OPEN 2,8,15
1530 OPEN 1,8,8,D$
1540 :
1600 INPUT#2,A,B$:REM ERROR CHECK
1610 IF A<20 THEN RETURN
1620 PRINT"PROBLEM: "B$:CLOSE 1
1630 IF A-63 THEN PRINT"PRESS ANY KEY TO CONTINUE";:SYS32768,1,128,A$:RETURN
1640 PRINT"REPLACE EXISTING FILE (Y/N):";:SYS32768,1,2,A$
1650 IF A$<"Y" THEN RETURN
1660 PRINT#2,"S0:"+DF$:GOTO 1530
1670 :
1700 PRINT"NAME OF FILE :";:SYS32768,14,2,DF$:PRINT:REM SET NAME
1710 IF RIGHT$(DF$,4)<>".STA" THEN DF$=LEFT$(DF$,12)+".STA"
1720 RETURN
1730 :
2000 :
2010 CLR:GOSUB 500
2020 GOSUB 1700,NAME
2030 GOSUB 2500:GOTO 100
2040 :
2500 PRINT"[147]ENTER NEW DATA POINTS":PRINT
2510 PRINT"NO NEGATIVE VALUES":PRINT
2520 FOR I=NP+1 TO MP:PRINT:PRINT"ENTER VALUE #"I
2530 PRINT"DATA (RETURN=QUIT)";:SYS32768,6,12,A$:D(I)=VAL(A$)
2531 IF A$=""THEN RETURN
2540 IF D(I)<0 THEN RETURN
2550 AN=0:NP=I:NEXT:RETURN
2560 :
3000 PRINT"PRESS (RETURN) OR ENTER 0 TO QUIT.
3010 :[153]
3020 P[178]0:[153]"POINT # TO EDIT (0 QUIT)";:[158]32768,4,4,P$:P[178][197](P$)
3030 [139] P[179]1 [176] P[177]NP [167] [142]
3040 [153] [163]5)D(P)
3050 [153]"ONDATA :";:[158]32768,6,4,A$:A[178][197](A$):[153]
3060 [139] D(P)[171]A [167] D(P)[178]A:AN[178]0
3070 [137] 3020
3080 :
4000 I[178]1:P[178]21
4010 [153]"LIST DATA: SCREEN OR PRINTER S/P? :";:[158]32768,1,2,P$
4011 [139]P$[178]"P"[167][159]15,4,15:[160]15:[139]ST[179][177]0[167][153]"LOAD-PRINTER ERROR-":[137]4010
4020 [139] P$[178]"P" [167] P[178]NP:[159] 4,4:[157] 4
4030 [153]:[153]"DATA POINTS FOR "DF$
4040 :
4100 [153]"POINT   DATA"
4110 [129] I[178]I [164] I[170]P
4120 [139] I[177]NP [167] 4200
4130 [153]I [166]6[171][195]([196](I))) D(I)
4140 [130]
4150 :
4200 [139] P$[178]"P" [167] [152]4:[160] 4:[142]
4210 [153]"PRESS ANY KEY TO CONTINUE.";:[158]32768,1,128,A$:[153]
4220 [139] I[179]NP [167] P[178]22:[137] 4100
4230 [142]
4240 :
5000 [139]NP[179]2[167][153]"NEED MORE DATA: PRESS ANY KEY.";:[158]32768,2,128,A$:[142]
5010 [153]"STATISTICS: SCREEN OR PRINTER S/P? :";:[158]32768,1,2,P$
5011 [139]P$[178]"P"[167][159]15,4,15:[160]15:[139]ST[179][177]0[167][153]"LOAD-PRINTER ERROR-":[137]5010
5020 [139] P$[178]"P" [167] [159] 4,4:[157] 4
5030 [153]:[153]"LOADDATA ANALYSIS":[153]:[153]
5040 [153]"DATA FUNCTION:    "DF$
5050 [153]"NUMBER OF POINTS:"NP
5060 [139] AN [167] 5200:[143] PREVIOUSLY ANALYZED
5100 MN[178]D(1):MX[178]0:T[178]0:S2[178]0
5110 [129] I[178]1 [164] NP
5120 T[178]T[170]D(I):S2[178]S2[170]D(I)[172]D(I)
5130 [139] D(I)[179]MN [167] MN[178]D(I)
5140 [139] D(I)[177]MX [167] MX[178]D(I)
5150 [130]
5160 M[178]T[173]NP:[143] MEAN
5170 S2[178](S2[171]T[172]T[173]NP)[173](NP[171]1):[143] VARIANCE
5180 SD[178][186](S2):[143] STD DEVIATION
5190 :
5200 [153]"LOADDATA MINIMUM:    "MN
5210 [153]"DATA MAXIMUM:    "MX
5220 [153]"RANGE:           "MX[171]MN
5230 [153]"THE MEAN IS:     "M
5240 [153]"SAMPLE VARIANCE: "S2
5250 [153]"STD DEVIATION:   "SD
5260 [153]"COEFF VARIATION: "[181](1000[172]SD[173]M)[173]10"%"
5270 [153]"2/3 INTERVAL:"M[171]SD"TO"M[170]SD
5280 [153]"95% INTERVAL:"M[171]2[172]SD"TO"M[170]2[172]SD
5290 [139] P$[178]"P" [167] [152]4:[160] 4
5300 [139] AN [167] 6000
5310 [139] US [167] 5420
5320 :
5400 NC[178][181]([186](3[172]NP[170]4)):[139] NC[177]33 [167] NC[178]33: [143] SET CLASSES
5410 SP[178](MX[171]MN)[173](NC[171]1):L[178][165]L(SP):CM(1)[178][165]R(MN[171]SP[173]2)
5420 AN[178]1:[141] 6600
5430 :
6000 [153]:[153]:[153]"   1 -- SEE STATISTICS AGAIN":[143] ANALYSIS MENU
6010 [153]"   2 -- LIST DATA BY CLASS"
6020 [153]"   3 -- DEFINE CLASSES MANUALLY"
6030 [153]"   4 -- FREQUENCY HISTOGRAM"
6040 [153]"   5 -- CUMULATIVE HISTOGRAM"
6050 [153]" RETURN-RETURN TO FIRST MENU"
6060 [153]:[153]"YOUR CHOICE :";:[158]32768,1,4,A$:A[178][197](A$):[153]
6070 [139] A[179]1 [167] [142]
6080 [145] A [137] 5000
6090 [145] A[171]1 [141] 9000,6500,7000,7500
6100 [137] 6000
6110 :
6500 US[178]1:[143] MANUAL CLASSES
6510 [153]"NUMBER OF CLASSES:"NC
6520 [153]"THE FIRST CLASS STARTS AT";CM(1)
6530 [153]"CLASS WIDTH:"SP
6540 [153]:[153]"# CLASSES (MAX 33)";:[158]32768,2,4,NC$:NC[178][197](NC$)
6550 [139] NC[179]2 [176] NC[177]33 [167] 6510
6560 [153]"NEW START:";:[158]32768,6,4,A$:CM(1)[178][197](A$)
6570 [153]"NEW WIDTH:";:[158]32768,6,4,A$:SP[178][197](A$)
6580 [139] SP[179][178]0 [167] 6570
6590 :
6600 L[178][165]L(SP):MC[178]CM(1)[171]SP:[153]:[153]"WORKING":[143] CLASSES
6610 [129] I[178]2 [164] NC[170]1
6620 CM(I)[178][165]R(MC[170]SP[172]I)
6630 CL(I[171]1)[178]0
6640 [130]
6650 :
6700 [129] I[178]1 [164] NP:[143] PUT DATA IN
6710 C[178](D(I)[171]MC)[173]SP:[139] C[177]NC [167] C[178]NC
6720 CL(C)[178]CL(C)[170]1:[130] I
6730 :
6800 AC(1)[178]CL(1):[143] ACCUMULATION
6810 [129] I[178]2 [164] NC
6820 AC(I)[178]AC(I[171]1)[170]CL(I)
6830 [130]:[142]
6840 :
7000 MC[178]0:[143] LARGEST CLASS
7010 [129] I[178]1 [164] NC
7020 [139] CL(I)[177]MC [167] MC[178]CL(I)
7030 [130]
7040 A[178][165]L(MC):S[178][165]R(MC):SC[178]0:[139]S[177]0[167]SC[178]20[173]S
7050 :
7100 [129] I[178]1 [164] NC:[143] SCALING
7110 PL(I)[178]CL(I)[172]SC
7120 [130]
7130 A$[178]"FREQUENCY DISTRIBUTION "[170]DF$
7140 [137] 7600
7150 :
7500 [129] I[178]1 [164] NC:[143] SCALE ACCUM
7510 PL(I)[178]AC(I)[172]20[173]NP
7520 [130]
7530 S[178]100:A$[178]"CUMULATIVE FREQUENCY "[170]DF$
7540 :
7600 [153]"LOAD"A$:[153]:[143] GRAPHING ROUTINE
7610 A1$[178][199](207):[129] I[178]0 [164] 32:A1$[178]A1$[170][199](183):[130]
7620 A2$[178][199](17)[170][199](157)[170][199](165):A2$[178][199](165)[170]A2$[170]A2$
7630 [129] I[178]5 [164] 1 [169] [171]1
7640 [153] [202]([196](I[172]S[173]5),2,6)[163]5)A1$
7650 [153][163]5)A2$:[130]
7660 [153]"0"[163]5)A1$
7670 A[178]1[171](NC[179]17):A$[178][196](MX)
7680 [153] [163]5)MN [163]6[170]A[172]NC[171][195](A$)) A$ [199](150);
7690 :
7700 A3$[178][199](146)[170][199](162)
7710 A4$[178][199](18)[170]" "[170][199](145)[170][199](157)
7720 [129] I[178]1 [164] NC
7730 [139] PL(I)[179].1 [167] 7800
7740 [158] CR,0,22,5[170]A[172]I
7750 [139] PL(I)[179]1 [167] [153]A3$:[137] 7800
7760 [129] J[178]1 [164] PL(I)
7770 [153]A4$;
7780 [130]
7790 :
7800 [130]:[153]"SYSPRESS ANY KEY WHEN READY TO CONTINUE";:[158]32768,1,128,A$
7810 [153]"LOAD":[142]
7820 :
8000 MN[178]0:S[178]100:T[178]NC:[139] A[177]9 [167] 8100
8010 :
8020 A$[178]"NORMAL DISTRIBUTION"
8030 K1[178]20:K2[178][171]70:NC[178]33:M[178]17
8040 [129] X[178]1 [164] NC
8050 PL(X)[178]K1[172][189]((X[171]M)[172](X[171]M)[173]K2)
8060 [130]:[137] 8200
8070 :
8100 [153]"MEAN (1 TO 9)";:[158]32768,1,4,A$:V[178][197](A$):[139] V[179]0 [176] V[177]15 [167] 8100
8110 A$[178]"POISSON DISTRIBUTION, MEAN"[170][196](V)
8120 PL(1)[178]52[172][189]([171]V)[172][186](V)
8130 NC[178]2[172]V[170]4:[139] NC[177]33 [167] NC[178]33
8140 [129] X[178]1 [164] NC
8150 PL(X[170]1)[178]PL(X)[172]V[173]X
8160 [130]
8170 :
8200 MX[178]NC:[141] 7600:NC[178]T:AN[178]0:[142]
8210 :
9000 I[178]1:P[178]21:[153]"LIST CLASSES: SCREEN OR PRINTER S/P? :";:[158]32768,1,2,P$
9001 [139]P$[178]"P"[167][159]15,4,15:[160]15:[139]ST[179][177]0[167][153]"LOAD-PRINTER ERROR-":[137]9000
9010 [139] P$[178]"P" [167] P[178]NC:[159] 4,4:[157] 4
9020 [153]:[153]"DATA CLASSES FOR "DF$:[153]
9030 [139] US [167] [153]"CLASSES SET MANUALLY":[153]
9040 :
9100 [153]" CLASS   DATA    ACCUMU-"
9110 [153]" START  POINTS   LATION"
9120 [129] I[178]I [164] I[170]P
9130 [139] I[177]NC [167] 9200
9140 [153]CM(I)[166]8[171][195]([196](CM(I)))) CL(I)[166]8[171][195]([196](CL(I)))) AC(I)
9150 [130]
9160 :
9200 [139] P$[178]"P" [167] [152]4:[160] 4:[142]
9210 [153]" PRESS ANY KEY WHEN READY TO CONTINUE.";:[158]32768,1,128,A$:[153]
9220 [139] I[179]NC [167] 9100
9230 [142]
10000 [139]AA[178]1 [167]10300
10001 [151]53280,6:[151]53281,6:[153]"LOAD OR====================================^"
10010 [153]"WAIT -(null)(null)SYS        (null) (null) ATN STR$ (null) (null) ATN (null)         WAIT(null)(null)<"
10020 [153]" -{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{<"
10030 [153]" -{{{{CLR      p R E S E N T S       WAIT{{{{<"
10040 [153]"STOP8-{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{<"
10050 [153]" -{{                                WAIT{{<"
10060 [153]" -{{      statistics analyzer       PRINT#WAIT{{<"
10070 [153]" -{{      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(       PRINT#WAIT{{<"
10080 [153]" -{{{PRINT#{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{<"
10090 [153]"STOP8-{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{<"
10100 [153]" -(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)>>>>>>>>>>>>>>>>(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)<"
10110 [153]" -(null)(null)(null)(null)(null)(null)(null)(null)(null)<STOP  PEEKY RIGHT$AN ATNDAM.  -(null)(null)(null)(null)(null)(null)(null)(null)(null)<"
10120 [153]" -(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)================(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)<"
10130 [153]" -{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{<"
10140 [153]"STOP9-{{{{{{{{{{{{{{{{{{{{{{{{CLR   WAIT{{{{{{{{{<"
10150 [153]" -{{{{{{{{{{{{{{{{{{{{{{{{CLR   WAIT{{{{{{{{{<"
10160 [153]" -   WAIT{{{{{SYS   WAIT{{{{{CONT   WAIT{{{{{CLR   WAIT{PRINT#   WAIT{{{{{<"
10170 [153]" -   WAIT{{{{{SYS   WAIT{{{{{CONT   WAIT{{{{{CLR   WAIT{PRINT#   WAIT{   WAIT{<"
10180 [153]" -   WAIT{FOR   WAIT{SYS   WAIT{{{{{CONT   WAIT{{{{{CLR   WAIT{PRINT#   WAIT{   WAIT{";
10190 [153]"<"
10200 [153]"STOP1-   WAIT{FOR   WAIT{SYS   WAIT{{{{{CONT   WAIT{OPEN   WAIT{CLR   WAIT{PRINT#   WAIT{";
10210 [153]"   WAIT{<"
10220 [153]" -   WAIT{FOR   WAIT{SYS   WAIT{   WAIT{CONT   WAIT{OPEN   WAIT{CLR   WAIT{PRINT#   WAIT{";
10230 [153]"   WAIT{<"
10240 [153]" -   WAIT{FOR   WAIT{SYS   WAIT{   WAIT{CONT   WAIT{OPEN   WAIT{CLR   WAIT{PRINT#   WAIT{";
10250 [153]"   WAIT{<"
10260 [153]" />>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>EXP"
10270 [153]"   STOPLEN   (null)   (null)   (null)   (null)   RIGHT$   CHR$   LEFT$   (null)"
10280 [139]AA[178]0[167]AA[178]1:[147]"GET'N STORE48.O",8,1:[143] ( GET'N STORE BY JIM ROW )
10300 [153]"  (null)RESS SPACE WHEN READY TO CONTINUE."
10301 [161]A$:[139]A$[179][177]" "[167]10301
10305 [142]